package cringer::rickroll;

# rickroll.pm
# Just for fun, flip text upside down.

use Text::UpsideDown;

our $VERSION = 2.0;

sub said{
 my $self = $_[0];
 my $args = $_[1];
 my $me = $self->{nick};

 unless ($args->{body} =~ /^rickroll: ?(.*)$/){
  return;
 }
 
 return upside_down($1);
}

sub commandList{
 return qq~rickroll: [string to rickroll]~;
}

return 1;